home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / me_cd22.zip / MUTT2.ZIP / SYSVAR.MUT < prev    next >
Text File  |  1992-04-27  |  468b  |  21 lines
  1.   ;; Allow the user to set/examine sysvars
  2.   ;; C Durland    Public Domain
  3.  
  4. (include me2.h)
  5. (defun
  6.   set-sysvar
  7.   {
  8.     (string svar)
  9.     (svar (complete CC_SYSVAR "Set sysvar: "))
  10.     (sysvar svar 
  11.        (convert-to NUMBER (ask "Current value of " svar " is " (sysvar svar)
  12.     ".  Set " svar " to: ")))
  13.   }
  14.   get-sysvar
  15.   {
  16.     (string svar)
  17.     (svar (complete CC_SYSVAR "Get sysvar: "))
  18.     (msg "Current value of " svar " is " (sysvar svar))
  19.   }
  20. )
  21.